(occur): Set buffer-read-only.

diff --git a/lisp/replace.el b/lisp/replace.el
index e82eb3bdafbb054c2e1a12f8275303456ca664ab..29ca29384e81cdcfd7532b7232122bc0663473f8 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -622,7 +622,8 @@ the matching is case-sensitive."
                     (format "%d lines" occur-num-matches))))
              (insert message-string)
              (if (interactive-p)
-                 (message "%s matched" message-string)))))))))
+                 (message "%s matched" message-string)))
+           (setq buffer-read-only t)))))))
 \f
 ;; It would be nice to use \\[...], but there is no reasonable way
 ;; to make that display both SPC and Y.